|
100
|
How can I change the background color for parts of the text
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "<bgcolor=FF0000>new</bgcolor> caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
99
|
How can I change the foreground color for parts of the text
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "<fgcolor=FF0000>new</fgcolor> caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
98
|
How can I show the node as strikeout
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "<s>new</s> caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
97
|
How can I show the node as underlined
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "<u>new</u> caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
96
|
How can I show the node as italic
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "<i>new</i> caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
95
|
How can I bold the node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "<b>new</b> caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
94
|
How can I change the node's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child"):Caption := "new caption"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
93
|
How can I display hierarchical the child nodes so they are indented relative to their parents
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HasButtons := -1/*exPlus*/
oChartView:PenLink := 0/*exPenSolid*/
oChartView:PenWidthLink := 3
oChartView:IndentSiblingX := 12
oChartView:IndentSiblingY := 12
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("As <b>Tree</b>",,"1234"):ArrangeSiblingNodesAs := 2/*exTree*/
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234","456")
oNodes:Add("Item 1","456")
oNodes:Add("Item 2","456","78"):Expanded := .F.
oNodes:Add("Item 2.1","78")
oNodes:Add("Item 2.2","78")
oNodes:Add("Item 3","456")
oNodes:Add("Sub 3","1234")
oNodes:Add("As <b>Default</b>",,"AA")
oNodes:Add("Item 1","AA")
oNodes:Add("Item 2","AA","BB")
oNodes:Add("Item 2.1","BB")
oNodes:Add("Item 2.2","BB")
oNodes:Add("Item 2.3","BB")
oNodes:Add("Item 3","AA")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
92
|
How can I display the child nodes as a tree, so they are indented relative to their parents
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:IndentSiblingY := 4
oChartView:HasButtons := -1/*exPlus*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:ArrangeSiblingNodesAs := 2/*exTree*/
oNodes := oChartView:Nodes()
oNodes:Add("Child 1",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234","456")
oNodes:Add("Item 1","456")
oNodes:Add("Item 2","456","78"):Expanded := .F.
oNodes:Add("Item 2.1","78")
oNodes:Add("Item 2.2","78")
oNodes:Add("Item 3","456")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
91
|
How can I indent the child nodes relative to their parents
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:IndentChild := 32
oChartView:HasButtons := -1/*exPlus*/
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("AsTree",,"1234"):ArrangeSiblingNodesAs := 2/*exTree*/
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234","456")
oNodes:Add("Item 1","456")
oNodes:Add("Item 2","456","78"):Expanded := .F.
oNodes:Add("Item 2.1","78")
oNodes:Add("Item 2.2","78")
oNodes:Add("Item 3","456")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child 2",,"AA")
oNodes:Add(Transform(1,""),"AA")
oNodes:Add(Transform(2,""),"AA","BB")
oNodes:Add("2.1","BB")
oNodes:Add("2.2","BB")
oNodes:Add(Transform(3,""),"AA")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
90
|
How can I increase the distance between nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:IndentSiblingY := 64
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("<a1>Link 1</a>",,"1234")
oNodes:Add("Sub <a1>Link 1</a>","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("<a2>Link 2</a>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
89
|
How can I increase the distance between nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:IndentSiblingX := 64
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("<a1>Link 1</a>",,"1234")
oNodes:Add("Sub <a1>Link 1</a>","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("<a2>Link 2</a>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
88
|
How can I add an anchor or a hyperlink
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("<a1>Link 1</a>",,"1234")
oNodes:Add("Sub <a1>Link 1</a>","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("<a2>Link 2</a>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
87
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("FormatAnchor",.F.,"<u><fgcolor=880000> </fgcolor></u>")
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("<a1>Link 1</a>",,"1234")
oNodes:Add("Sub <a1>Link 1</a>","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("<a2>Link 2</a>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
86
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("FormatAnchor",.T.,"<u><fgcolor=FF0000> </fgcolor></u>")
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("<a1>Link 1</a>",,"1234")
oNodes:Add("Sub <a1>Link 1</a>","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("<a2>Link 2</a>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
85
|
How can I save data in XML format
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
84
|
Can I load data from XML files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
83
|
How can I assign multiple icons to a node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oChartView:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234"):Caption := "<img>1</img> text <img>2</img> and so on<br>bla <b>bla</b> left<r><img>3</img>"
oNode := oNodes:Add("Sub 2","1234")
oNode:Caption := "<img>pic1</img> text <img>1:6</img><img>1:6</img><img>1</img> <img>2</img>"
oNode:FixedWidth := 124
oNode:FixedHeight := 48
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
82
|
How can I assign multiple pictures to a node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode,oNode1
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oChartView:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNode1 := oNodes:Add("Sub 1","1234")
oNode1:Caption := "<img>pic1</img> text <img>pic2</img>"
oNode1:FixedWidth := 108
oNode1:FixedHeight := 48
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
81
|
How can I change the color of the line that links assistant nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("LinkAssistantColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
80
|
How can I change the width of the line that links assistant nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:PenLinkAssistant := 0/*exPenSolid*/
oChartView:PenWidthLinkAssistant := 4
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
79
|
How can I change the style of the line that links assistant nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:PenLinkAssistant := 4/*exPenDashDotDot*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
78
|
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("Cursor",3/*exExpandButtonArea*/,"exHelp")
oChartView:HasButtons := -1/*exPlus*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
77
|
How do I change the shape of the cursor when the user clicks an drags the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("Cursor",2/*exDragChart*/,"exHelp")
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
76
|
How do I change the shape of the cursor when it hovers a node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("Cursor",1/*exNodeArea*/,"exHelp")
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
75
|
How do I change the shape of the cursor when it hovers the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("Cursor",0/*exChartArea*/,"exHelp")
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
74
|
How can I copy and paste the control's content to Microsoft Word for instance
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HasButtons := -1/*exPlus*/
oChartView:PenLink := 0/*exPenSolid*/
oChartView:PenWidthLink := 3
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
73
|
How can I copy and paste the control's content to Microsoft Word for instance
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HasButtons := -1/*exPlus*/
oChartView:ButtonsAlign := 18/*MiddleRight*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
72
|
How can I enable or disable expanding or collapsing a node when user double clicks it
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ExpandOnDblClk := .F.
oChartView:HasButtons := -1/*exPlus*/
oChartView:ButtonsAlign := 18/*MiddleRight*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
71
|
How can I align the +/- expand or collapse buttons to the right
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HasButtons := -1/*exPlus*/
oChartView:ButtonsAlign := 18/*MiddleRight*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
70
|
Can I display the +/- expand or collapse buttons using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oAppearance
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oAppearance := oChartView:VisualAppearance()
oAppearance:Add(11,"c:\exontrol\images\normal.ebn")
oAppearance:Add(22,"c:\exontrol\images\pushed.ebn")
oAppearance:Add(1,"CP:11 2 2 -2 -2")
oAppearance:Add(2,"CP:22 2 2 -2 -2")
oChartView:HasButtons := 4/*exCustom*/
oChartView:SetProperty("HasButtonsCustom",.T.,33554432)
oChartView:SetProperty("HasButtonsCustom",.F.,16777216)
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
69
|
How can I change the +/- expand or collapse buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oChartView:HasButtons := 4/*exCustom*/
oChartView:SetProperty("HasButtonsCustom",.T.,1)
oChartView:SetProperty("HasButtonsCustom",.F.,2)
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
68
|
How can I change the +/- expand or collapse buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HasButtons := 2/*exCircle*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
67
|
How can I display +/- expand or collapse buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HasButtons := -1/*exPlus*/
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234"):Expanded := .F.
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
66
|
How do I show or hide the assistant nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNode
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ShowAssistants := .T.
oNode := oChartView:Root()
oNode:Image := 0
oNode:AddAssistant("Assistant 1")
oNode:AddAssistant("Assistant 2")
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
65
|
How do I scale or zoom the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:BorderWidth := 18
oChartView:BorderHeight := 18
oChartView:ZoomWidthMode := 1/*exCustomSize*/
oChartView:ZoomHeightMode := 1/*exCustomSize*/
oChartView:ZoomWidth := 2
oChartView:ZoomHeight := 2
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
64
|
How do I scale or zoom the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:BorderWidth := 18
oChartView:BorderHeight := 18
oChartView:ZoomWidthMode := 2/*exControlSize*/
oChartView:ZoomHeightMode := 2/*exControlSize*/
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
63
|
How can I ensure that the selected node is visible or fits the chart's area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:EnsureVisibleOnSelect := .T.
oChartView:ScrollOnEnsure := .F.
oChartView:BorderWidth := 18
oChartView:BorderHeight := 18
oChartView:ZoomWidthMode := 1/*exCustomSize*/
oChartView:ZoomHeightMode := 1/*exCustomSize*/
oChartView:ZoomWidth := 2
oChartView:ZoomHeight := 2
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Sub 3","1234")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
62
|
How do I avoid slow moving the chart when the user selects a new node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ScrollByClick := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
61
|
How do I ensure that a node is visible or fits the chart's area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Child <b>2</b>")
oChartView:EnsureVisibleNode("1234")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
60
|
How do I change the root node, so it explore from a specified node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Sub 1","1234")
oNodes:Add("Sub 2","1234")
oNodes:Add("Child <b>2</b>")
oChartView:ExploreFromNode := "1234"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
59
|
How do I select a node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>",,"1234")
oNodes:Add("Child <b>2</b>")
oChartView:SelectNode := "1234"
oChartView:HideSelection := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
58
|
How do I get the node from the cursor
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
57
|
How do I fix the height for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:FixedHeightNode := 32
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
56
|
How do I fix the width for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:FixedWidthNode := 128
oChartView:Root():Image := 0
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
55
|
How do I change the style of the link between nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:PenLink := 1/*exPenDash*/
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
54
|
How do I change the color to link the nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("LinkColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
53
|
How do I change the shape for selected node, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oChartView:SetProperty("SelColor",0x2000000)
oChartView:SelectNode := "root"
oChartView:HideSelection := .F.
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
52
|
How do I change the color for selected node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("SelColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,255 } ) , .F. ))
oChartView:SelectNode := "root"
oChartView:HideSelection := .F.
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
51
|
How do I hide the node's shadow
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ShadowNode := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
50
|
How do I change the pen to draw the border for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:PenBorderNode := 2/*exPenDot*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
49
|
How do I change the shape of the border for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oChartView:SetProperty("Background",0/*exNodeFrame*/,0x2000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
48
|
How do I change the shape of the border for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:DrawRoundNode := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
47
|
How do I change the foreground color for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ForeColorNode",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
46
|
How do I change the background color for all nodes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("BackColorNode",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
45
|
How do I change the key of the root
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Key := "myKey"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
44
|
How do I change the caption of the root
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Caption := "new<br>root"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
43
|
How do I access the root node
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Root():Caption := "new<br>root"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
42
|
How do I access the nodes collection
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oNodes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oNodes := oChartView:Nodes()
oNodes:Add("Child <b>1</b>")
oNodes:Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
41
|
How do I refresh the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Nodes():Add("Child <b>1</b>")
oChartView:Nodes():Add("Child <b>2</b>")
oChartView:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
40
|
How do I prevent painting while several changes are performed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:BeginUpdate()
oChartView:Nodes():Add("Child <b>1</b>")
oChartView:Nodes():Add("Child <b>2</b>")
oChartView:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
39
|
How do I indent the full chart to the right
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:BorderWidth := 8
oChartView:BorderHeight := 8
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
38
|
How can I change the node's border/frame, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oChartView:SetProperty("Background",0/*exNodeFrame*/,0x1000000)
oChartView:Nodes():Add("Child <b>1</b>")
oChartView:Nodes():Add("Child <b>2</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
37
|
How can still display the selected node when the control loses the focus
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:HideSelection := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
36
|
How do I disable or enable the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Enabled := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
35
|
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oChartView:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oChartView:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oChartView:SetProperty("Background",388/*exHSThumb*/,0x1000000)
oChartView:SetProperty("Background",389/*exHSThumbP*/,0x2000000)
oChartView:SetProperty("Background",391/*exHSThumbH*/,0x3000000)
oChartView:SetProperty("Background",260/*exVSThumb*/,0x1000000)
oChartView:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
oChartView:SetProperty("Background",263/*exVSThumbH*/,0x3000000)
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
34
|
How do I change the visual aspect only for the thumb in the scroll bar, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oChartView:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oChartView:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oChartView:SetProperty("Background",388/*exHSThumb*/,0x1000000)
oChartView:SetProperty("Background",389/*exHSThumbP*/,0x2000000)
oChartView:SetProperty("Background",391/*exHSThumbH*/,0x3000000)
oChartView:SetProperty("ScrollThumbSize",1/*exHScroll*/,96)
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
33
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oChartView:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oChartView:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oChartView:SetProperty("Background",324/*exSBtn*/,0x1000000)
oChartView:SetProperty("Background",325/*exSBtnP*/,0x2000000)
oChartView:SetProperty("Background",327/*exSBtnH*/,0x3000000)
oChartView:SetProperty("Background",404/*exHSBack*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oChartView:SetProperty("Background",276/*exVSBack*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oChartView:SetProperty("Background",3/*exSizeGrip*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
32
|
Can I change the forecolor for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipDelay := 1
oChartView:ToolTipWidth := 364
oChartView:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
31
|
Can I change the background color for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipDelay := 1
oChartView:ToolTipWidth := 364
oChartView:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
30
|
Can I change the default border of the tooltip, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipDelay := 1
oChartView:ToolTipWidth := 364
oChartView:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oChartView:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
29
|
How do I call your x-script language
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ExecuteTemplate("BackColor = RGB(255,0,0)")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
28
|
How do I call your x-script language
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Template := "BackColor = RGB(255,0,0)"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
27
|
Can I change the font for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
LOCAL oStdFont
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipDelay := 1
oStdFont := oChartView:ToolTipFont()
oStdFont:Name := "Tahoma"
oStdFont:Size := 14
oChartView:ToolTipWidth := 364
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
26
|
I've seen that the width of the tooltip is variable. Can I make it larger
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipWidth := 328
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
25
|
How do I let the tooltip being displayed longer
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipPopDelay := 10000
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
24
|
How do I disable showing the tooltip for all control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipDelay := 0
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
23
|
How do I show the tooltip quicker
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ToolTipDelay := 1
oChartView:Root():ToolTip := "This is a bit of text that's shown when the cursor hovers the node."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
22
|
Can I change the order of the buttons in the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollOrderParts",1/*exHScroll*/,"t,l,r")
oChartView:SetProperty("ScrollOrderParts",0/*exVScroll*/,"t,l,r")
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
21
|
The thumb size seems to be very small. Can I make it bigger
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollThumbSize",1/*exHScroll*/,164)
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
20
|
How do I enlarge or change the size of the control's scrollbars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:ScrollHeight := 18
oChartView:ScrollWidth := 18
oChartView:ScrollButtonWidth := 18
oChartView:ScrollButtonHeight := 18
oChartView:FixedWidthNode := 320
oChartView:FixedHeightNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
19
|
How can I display my text on the scroll bar, using a different font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollPartCaption",1/*exHScroll*/,256/*exThumbPart*/,"This is just a text")
oChartView:ScrollFont(1/*exHScroll*/):Size := 12
oChartView:SetProperty("ScrollThumbSize",1/*exHScroll*/,128)
oChartView:ScrollHeight := 24
oChartView:SetProperty("ScrollPartCaption",1/*exHScroll*/,256/*exThumbPart*/,"This is <s><font Tahoma;12> just </font></s> text")
oChartView:ScrollHeight := 20
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
18
|
How can I display my text on the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollPartCaption",1/*exHScroll*/,256/*exThumbPart*/,"this is just a text")
oChartView:SetProperty("ScrollThumbSize",1/*exHScroll*/,96)
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
17
|
How do I assign a tooltip to a scrollbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollToolTip",1/*exHScroll*/,"This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar")
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
16
|
How do I assign an icon to the button in the scrollbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oChartView:SetProperty("ScrollPartVisible",1/*exHScroll*/,32768/*exLeftB1Part*/,.T.)
oChartView:SetProperty("ScrollPartCaption",1/*exHScroll*/,32768/*exLeftB1Part*/,"<img>1</img>")
oChartView:ScrollHeight := 18
oChartView:ScrollButtonWidth := 18
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
15
|
I need to add a button in the scroll bar. Is this possible
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollPartVisible",1/*exHScroll*/,32768/*exLeftB1Part*/,.T.)
oChartView:SetProperty("ScrollPartCaption",1/*exHScroll*/,32768/*exLeftB1Part*/,"1")
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
14
|
Can I display an additional buttons in the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ScrollPartVisible",1/*exHScroll*/,32768/*exLeftB1Part*/,.T.)
oChartView:SetProperty("ScrollPartVisible",1/*exHScroll*/,16384/*exLeftB2Part*/,.T.)
oChartView:SetProperty("ScrollPartVisible",1/*exHScroll*/,1/*exRightB6Part*/,.T.)
oChartView:SetProperty("ScrollPartVisible",1/*exHScroll*/,2/*exRightB5Part*/,.T.)
oChartView:FixedWidthNode := 320
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
13
|
How do I change the control's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
12
|
How do I change the control's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 200,200,200 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
11
|
How can I change the control's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Font():Name := "Verdana"
oChartView:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
10
|
How do I put a picture on the center of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 17/*MiddleCenter*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
9
|
How do I resize/stretch a picture on the control's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 49/*Stretch*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
8
|
How do I put a picture on the control's center right bottom side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 34/*LowerRight*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
7
|
How do I put a picture on the control's center left bottom side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 32/*LowerLeft*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
6
|
How do I put a picture on the control's center top side
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 1/*UpperCenter*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
5
|
How do I put a picture on the control's right top corner
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 2/*UpperRight*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
4
|
How do I put a picture on the control's left top corner
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oChartView:PictureDisplay := 0/*UpperLeft*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
3
|
How do I put a picture on the control's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Picture := oChartView:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
2
|
How do I change the control's border, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oChartView:Appearance := 16777216/*0x1000000+*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
1
|
How do I remove the control's border
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oChartView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oChartView := XbpActiveXControl():new( oForm:drawingArea )
oChartView:CLSID := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
oChartView:create(,, {10,60},{610,370} )
oChartView:Appearance := 0/*None2*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|